home *** CD-ROM | disk | FTP | other *** search
/ Mixa 155: Dogs / MIXA 155: Dogs.iso / pc / Viewer / BROWSER(W) / フィルタ / PDF / LIB / pdfeof.ps < prev    next >
Encoding:
Text File  |  2002-10-29  |  1.8 KB  |  48 lines
  1. %    Copyright (C) 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile: pdfeof.ps,v $ $Revision: 1.1 $
  7. % Patch to allow garbage on the end of PDF files.
  8.  
  9. .currentglobal true .setglobal
  10. pdfdict begin
  11.  
  12. % Skip backward over the %%EOF at the end of the PDF file.
  13. % We put this in a separate procedure so we can easily offer the option
  14. % of accepting garbage after the %%EOF, which the PDF specification
  15. % unambiguously forbids but which some applications (including, apparently,
  16. % Acrobat Distiller on the Macintosh) produce, and of accepting the
  17. % xref position on the same line as startxref.
  18. /findxref {        % - findxref <xrefpos>
  19.   PDFfile dup dup 0 setfileposition bytesavailable
  20.   dup /PDFfilelen exch def
  21.     % Find the last %%EOF string (within 2048 bytes)
  22.   2048 sub PDFoffset .max
  23.   2 copy setfileposition
  24.   PDFfilelen exch sub string 1 index exch readstring pop {
  25.     (\015%%EO) search {        % Adobe can handle truncated key string
  26.       pop pop            % if found, keep searching 'post' string
  27.     } {
  28.       (\012%%EO) search
  29.     { pop pop } { exit } ifelse    % exit if neither string found
  30.     } ifelse
  31.   } loop
  32.   PDFfilelen exch length sub 4 sub PDFoffset .max setfileposition
  33.     % Now read the startxref and xref start position.
  34.   prevline token not { null } if dup type /integertype eq {
  35.     exch pop cvi        % xref start position
  36.     exch PDFfile exch setfileposition
  37.     prevline (startxref) linene { findxreferror } if
  38.     pop
  39.   } {    % else, this file has 'startxref #####' format
  40.     (startxref) ne { findxreferror } if
  41.     cvi        % xref start position
  42.     exch PDFfile exch setfileposition
  43.   } ifelse
  44. } bind def
  45.  
  46. end            % pdfdict
  47. .setglobal
  48.